/* rclu021.p - Customer Sequences Lookup UI                                 */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.2 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 * $Revision: 1.2 $    BY: Jean Miller          DATE: 03/20/02  ECO: *N1CL*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Customer Sequences"

&SCOPED-DEFINE BR-NAME rc021
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE rcs_mstr
&SCOPED-DEFINE Q-FIRST-FIELD-LIST ()
&SCOPED-DEFINE Q-2ND-TABLE abss_det
&SCOPED-DEFINE Q-2ND-JOIN abss_shipfrom = rcs_shipfrom and abss_shipto = rcs_shipto and abss_rlse_id = rcs_rlse_id
&SCOPED-DEFINE Q-2ND-FIELD-LIST (abss_cust_seq abss_cust_job abss_status abss_date abss_time)
&SCOPED-DEFINE Q-NUM-TABLES 2

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-2.abss_cust_seq
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 abss_det.abss_cust_seq
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-abss_cust_seq
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Customer Sequence"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(30)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 31

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-2.abss_cust_job
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 abss_det.abss_cust_job
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-abss_cust_job
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Customer Job"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(30)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 31

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-2.abss_status
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 abss_det.abss_status
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-abss_status
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Status"
&SCOPED-DEFINE BR-FIELD-TYPE-3 character
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-2.abss_date
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 abss_det.abss_date
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-abss_date
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Schedule Date"
&SCOPED-DEFINE BR-FIELD-TYPE-4 date
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "99/99/99"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 14

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-2.abss_time
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 abss_det.abss_time
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-abss_time
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Schedule Time"
&SCOPED-DEFINE BR-FIELD-TYPE-5 character
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT "99:99"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 14

&SCOPED-DEFINE Q-NUM-FILT-VALS 5
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 31
&SCOPED-DEFINE BR-BROWSE-WIDTH 99
&SCOPED-DEFINE WHERE-CLAUSE rcs_shipfrom = c-brparm1 and rcs_shipto = c-brparm2 and abss_part = c-brparm3 and abss_abs_id = c-brparm4
&SCOPED-DEFINE BR-INDEXED-FIELDS 1

{wbbr01.i &string-4 = 'LOOKUP'}
if c-application-mode <> 'WEB' then do:
   {lookup.i}
end.
